Non-Exhaustive Patterns In Function | Haskell Error, Read/Fix